home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / agetest.arc / AGETEST.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-07-30  |  3.9 KB  |  95 lines
  1. 1000  REM ** based on a quiz originally appearing in 'CHANGING TIMES' 8/82 == prg by Jim Branberg, IBM PC/xt version rev 11/6/84
  2. 1005  Z = 0: COLOR 14,1,1:KEY OFF:WIDTH 40:CLS
  3. 1010  PRINT:PRINT "       WHAT'S YOUR MEDICAL AGE ?";:PRINT
  4. 1015  PRINT:PRINT:INPUT "Your present age";A$:A = VAL(A$)
  5. 1020  PRINT: PRINT "DISPOSITION":PRINT" 1. Easy going":PRINT" 2. Average":PRINT" 3. Tense often"
  6. 1025  PRINT"   (1, 2, or 3)";:INPUT B
  7. 1030  IF B=1 THEN Z=Z-3
  8. 1035  IF B=3 THEN Z=Z+6
  9. 1040  PRINT: PRINT "EXERCISE":PRINT" 1. Active employment, or regular":PRINT"    exercise":PRINT" 2. Moderate":PRINT" 3. None"
  10. 1045  PRINT"   (1, 2, or 3)";:INPUT B
  11. 1050  IF B=1 THEN Z=Z-12
  12. 1055  IF B=3 THEN Z=Z+12
  13. 1060  PRINT: PRINT "HOME ENVIROMENT":PRINT" 1. Pleasant":PRINT" 2. Average":PRINT" 3. Unusual tension"
  14. 1065  PRINT"   (1, 2, or 3)";:INPUT B
  15. 1070  IF B=1 THEN Z=Z-6
  16. 1075  IF B=3 THEN Z=Z+9
  17. 1080  PRINT: PRINT "JOB SATISFACTION":PRINT" 1. Above average":PRINT" 2. Average":PRINT" 3. Discontented"
  18. 1085  PRINT"   (1, 2, or 3)";:INPUT B
  19. 1090  IF B=1 THEN Z=Z-3
  20. 1095  IF B=3 THEN Z=Z+6
  21. 1100  PRINT: PRINT "AIR POLLUTION":PRINT" 1. No exposure":PRINT" 2. Moderate contact":PRINT" 3. Substantial exposure"
  22. 1105  PRINT"   (1, 2, or 3)";:INPUT B
  23. 1110  IF B=2 THEN Z=Z+3
  24. 1115  IF B=3 THEN Z=Z+9
  25. 1120  PRINT: PRINT "SMOKING HABITS":PRINT" 1. Non smoker":PRINT" 2. Occasional":PRINT" 3. 1 pack a day":PRINT" 4. 2 packs or more per day"
  26. 1125  PRINT"   (1, 2, 3, or 4)";:INPUT B
  27. 1130  IF B=1 THEN Z=Z-6
  28. 1135  IF B=3 THEN Z=Z+12
  29. 1140  IF B=4 THEN Z=Z+24
  30. 1145  PRINT: PRINT "DRINKING HABITS":PRINT" 1. Seldom":PRINT" 2. Moderate":PRINT" 3. Heavy"
  31. 1150  PRINT"   (1, 2, or 3)";:INPUT B
  32. 1155  IF B=1 THEN Z=Z-6
  33. 1160  IF B=2 THEN Z=Z+6
  34. 1165  IF B=3 THEN Z=Z+24
  35. 1170  PRINT: PRINT "EATING HABITS":PRINT" 1. Low fat diet":PRINT" 2. High protein intake":PRINT" 3. High cholesterol intake"
  36. 1175  PRINT"   (1, 2, or 3)";:INPUT B
  37. 1180  IF B=1 THEN Z=Z-6
  38. 1185  IF B=2 THEN Z=Z+6
  39. 1190  IF B=3 THEN Z=Z+6
  40. 1195  PRINT: PRINT "CAFFEINE INTAKE":PRINT" 1. Low":PRINT" 2. Moderate (2 cup average)":PRINT" 3. Heavy (4 cups or more)"
  41. 1200  PRINT"   (1, 2, or 3)";:INPUT B
  42. 1205  IF B=2 THEN Z=Z-2
  43. 1210  IF B=3 THEN Z=Z+6
  44. 1215  PRINT: PRINT "DRIVING (PER YEAR)":PRINT" 1. 20,000 miles or less with":PRINT"    seatbelts worn":PRINT" 2. 20,000 miles or less without":PRINT"    seatbelts":PRINT" 3. 20,000+ miles"
  45. 1220  PRINT"   (1, 2, or 3)";:INPUT B
  46. 1225  IF B=1 THEN Z=Z-3
  47. 1230  IF B=3 THEN Z=Z+12
  48. 1235  PRINT: PRINT "DRUG ABUSE":PRINT" 1. None":PRINT" 2. Moderate":PRINT" 3. Heavy":PRINT" 4. Narcotics"
  49. 1240  PRINT"   (1, 2, 3, or 4)";:INPUT B
  50. 1245  IF B=2 THEN Z=Z+12
  51. 1250  IF B=3 THEN Z=Z+24
  52. 1255  IF B=4 THEN Z=Z+36
  53. 1260  PRINT: PRINT "FAMILY & SOCIAL HISTORY INVENTORY":PRINT:PRINT"FATHER":PRINT" 1. Alive & over 68 yrs. old":PRINT" 2. Under 68 & alive, or dead at 68+":PRINT" 3. Dead of medical causes under 68"
  54. 1265  PRINT"   (1, 2, or 3)";:INPUT B
  55. 1270  IF B=1 THEN Z=Z-3
  56. 1275  IF B=3 THEN Z=Z+3
  57. 1280  PRINT:PRINT"MOTHER":PRINT" 1. Alive & over 73 years old":PRINT" 2. Alive & under 68, or dead at 68+":PRINT" 3. Dead of medical causes under 73"
  58. 1285  PRINT"   (1, 2, or 3)";:INPUT B
  59. 1290  IF B=1 THEN Z=Z-3
  60. 1295  IF B=3 THEN Z=Z+3
  61. 1300  PRINT:PRINT"MARITAL STATUS":PRINT" 1. Single":PRINT" 2. Married"
  62. 1305  PRINT"   (1 or 2)";:INPUT B
  63. 1310  IF B=1 THEN Z=Z+3:IF A>39 THEN Z=Z+3
  64. 1315  PRINT:PRINT"RESIDENCE":PRINT" 1. In large city":PRINT" 2. In suburban area":PRINT" 3. Farm or small town"
  65. 1320  PRINT"   (1, 2, or 3)";:INPUT B
  66. 1325  IF B=1 THEN Z=Z+6
  67. 1330  IF B=3 THEN Z=Z-3
  68. 1335  PRINT:PRINT"PHYSICAL INVENTORY":PRINT:PRINT"WEIGHT (Think of your 'ideal' body":PRINT"        weight at age 20.)":PRINT" 1. Same now, or gain of less than":PRINT"    10 lbs.":PRINT" 2. 20 lbs. over":PRINT" 3. 40 or more lbs."
  69. 1340  PRINT"   (1, 2, or 3)";:INPUT B
  70. 1345  IF B=1 THEN Z=Z-3
  71. 1350  IF B=2 THEN Z=Z+6
  72. 1355  IF B=3 THEN Z=Z+15
  73. 1360  PRINT:PRINT"BLOOD PRESSURE":PRINT" 1.";:IF A>39 THEN PRINT" Pressure above 140/90":GOTO 1362
  74. 1361  PRINT" Pressure above 130/80"
  75. 1362  PRINT" 2. No"
  76. 1365  PRINT"   (1 or 2)";:INPUT B
  77. 1375  IF B=1 THEN Z=Z+12
  78. 1380  PRINT:PRINT"CHOLESTEROL":PRINT" 1.";:IF A>39 THEN PRINT" Level above 250":GOTO 1382
  79. 1381  PRINT" Level above 220"
  80. 1382  PRINT" 2. No"
  81. 1385  PRINT"   (1 or 2)";:INPUT B
  82. 1390  IF B=1 THEN Z=Z+6
  83. 1400  PRINT:PRINT"HEART":PRINT" 1. Heart murmur":PRINT" 2. Murmur with history of rhuematic":PRINT"    fever":PRINT" 3. Neither"
  84. 1405  PRINT"   (1, 2, or 3)";:INPUT B
  85. 1410  IF B=1 THEN Z=Z+24
  86. 1415  IF B=2 THEN Z=Z+48
  87. 1420  PRINT:PRINT"YEARLY MEDICAL CHECK-UP":PRINT" 1. Complete":PRINT" 2. Partial":PRINT" 3. None"
  88. 1425  PRINT"   (1, 2, or 3)";:INPUT B
  89. 1430  IF B=1 THEN Z=Z-12
  90. 1435  IF B=2 THEN Z=Z-6
  91. 1440  Q = (Z/12) + A:PRINT:PRINT:PRINT "YOUR MEDICAL AGE IS: ";Q: PRINT:PRINT:PRINT
  92. 1445  PRINT"------- HIT ANY KEY TO CONTINUE --------"
  93. 1450  A$ =INKEY$: IF A$= "" THEN GOTO 1450
  94. 1455  SYSTEM:'CHAIN "SAMPLES",1000
  95.